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BEGINCLASS COREBUSINESSOBJECT 
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ENDDATA 

BEGINMETHOD 
INCLUDE HSKEL 
PRIVATE: 

# USED BY THE .FINITE STATE MACHINE 
VIRTUAL VOID FSM_INIT() { } 

VOID FSM_ACTION_TIMEOUT(CONST CHAR* TIMEVAL); 
VOID FSM_ACTION_THROW(CONST CHAR* MESSAGE); 
VOID FSM_ACTION_RETURN(CONST CHAR* RESULT); 
VOID FSM_ACTION_SEND(CONST CHAR* VALUE); 
PUBLIC: 
ENDINCLUDE 

# TO CONFIGURE THE FSM 

METHOD VOID FSM_LOAD_DOLSIB {STRING FILENAME} 

# TO TRIGGER AN EVENT IN THE FSM 

METHOD VOID FSM_EVENT {STRING NAME} {STRING VALUE} 
METHOD STRING FSM_RESULT 

# TO SET/GET VARIABLES FROM FSM 

METHOD VOID FSM_SET_STRING {STRING NAME} {STRING VALUE} 
METHOD CONST STRING FSM_GET_STRING {STRING NAME} 
METHOD VOID FSM_SET_INTEGER {STRING NAME} {INT VALUE} 
METHOD CONST INT FSM_GET_INTEGER {STRING NAME} 
ENDMETHOD 

ENDCLASS 
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